MacGames Sampler

home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / think-c / tc-edit-send.elc < prev next >
MacBinary | 1994-03-08 | 5.1 KB | [dELC/EMAC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Combustion 2 Particle Library `(other/combustion2ParticleLibrary)`	ext	Unsupported
`1%`	dexvert	Emacs Compiled Lisp `(other/emacsCompiledLisp)`	ext	Unsupported
`100%`	file	MacBinary II, Fri Mar 4 16:15:13 1994, modified Tue Mar 8 16:15:59 1994, creator 'EMAC', type 'dELC', 4707 bytes "tc-edit-send.elc" Emacs v18 byte-compiled Lisp data, at 0x12e3 316 bytes resource Emacs v18 byte-compiled Lisp data	default (weak)
`99%`	file	data	default
`100%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[dELC]`
macFileCreator	`[EMAC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 74 63 2d 65 64 69 | 74 2d 73 65 6e 64 2e 65 |..tc-edi|t-send.e|
|00000010| 6c 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lc......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 00 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 12 63 00 | 00 01 3c a9 9d 55 61 a9 |......c.|..<..Ua.|
|00000060| a2 9b 8f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bf 50 00 00 |........|.....P..|
|00000080| 0a 28 64 65 66 75 6e 20 | 74 63 3a 73 65 6e 64 2d |.(defun |tc:send-|
|00000090| 70 61 72 61 6d 65 74 65 | 72 6c 65 73 73 20 28 65 |paramete|rless (e|
|000000a0| 76 65 6e 74 54 79 70 65 | 20 64 65 73 63 72 69 70 |ventType| descrip|
|000000b0| 74 69 6f 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tion) (b|yte-code|
|000000c0| 20 22 c5 18 c6 0a c7 5c | 22 19 c5 1b c8 c9 8d 1c | ".....\|".......|
|000000d0| 08 85 14 00 ca 08 21 88 | 0c 2c 87 22 20 5b 65 76 |......!.|.,." [ev|
|000000e0| 65 6e 74 20 72 65 70 6c | 79 20 73 69 7a 65 6f 66 |ent repl|y sizeof|
|000000f0| 2d 41 70 70 6c 65 45 76 | 65 6e 74 20 74 72 61 6e |-AppleEv|ent tran|
|00000100| 73 61 63 74 69 6f 6e 49 | 44 20 72 65 73 75 6c 74 |sactionI|D result|
|00000110| 20 6e 69 6c 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 | nil mak|e-string|
|00000120| 20 30 20 70 61 6e 69 63 | 20 28 62 79 74 65 2d 63 | 0 panic| (byte-c|
|00000130| 6f 64 65 20 22 cb cc cd | cd 09 23 18 08 41 40 89 |ode "...|..#..A@.|
|00000140| 12 88 08 41 41 89 13 88 | 08 40 29 21 88 cb ce 0a |...AA...|.@)!....|
|00000150| 0c 0d 0e 06 5c 5c 0e 07 | cf cf cf 26 07 21 88 0b |....\\..|...&.!..|
|00000160| c9 0e 09 42 d0 d1 42 44 | 42 0e 08 42 89 16 08 88 |...B..BD|B..B....|
|00000170| 0e 0a 87 22 20 5b 74 65 | 6d 70 20 65 76 65 6e 74 |..." [te|mp event|
|00000180| 54 79 70 65 20 65 76 65 | 6e 74 20 74 72 61 6e 73 |Type eve|nt trans|
|00000190| 61 63 74 69 6f 6e 49 44 | 20 72 65 70 6c 79 20 6b |actionID| reply k|
|000001a0| 41 45 51 75 65 75 65 52 | 65 70 6c 79 20 6b 41 45 |AEQueueR|eply kAE|
|000001b0| 4e 65 76 65 72 49 6e 74 | 65 72 61 63 74 20 6b 41 |NeverInt|eract kA|
|000001c0| 45 4e 6f 72 6d 61 6c 50 | 72 69 6f 72 69 74 79 20 |ENormalP|riority |
|000001d0| 61 65 2d 68 69 73 74 6f | 72 79 20 64 65 73 63 72 |ae-histo|ry descr|
|000001e0| 69 70 74 69 6f 6e 20 6e | 6f 45 72 72 20 74 68 72 |iption n|oErr thr|
|000001f0| 6f 77 2d 65 72 72 20 61 | 65 2d 63 72 65 61 74 65 |ow-err a|e-create|
|00000200| 2d 61 70 70 6c 65 2d 65 | 76 65 6e 74 2d 69 6e 74 |-apple-e|vent-int|
|00000210| 65 72 6e 61 6c 20 22 4b | 41 48 4c 22 20 41 45 53 |ernal "K|AHL" AES|
|00000220| 65 6e 64 20 30 20 68 61 | 6e 64 6c 65 72 20 64 6f |end 0 ha|ndler do|
|00000230| 2d 73 69 6d 70 6c 65 2d | 72 65 70 6c 79 5d 20 31 |-simple-|reply] 1|
|00000240| 31 29 20 41 45 44 69 73 | 70 6f 73 65 44 65 73 63 |1) AEDis|poseDesc|
|00000250| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 74 63 |] 3))..(|defun tc|
|00000260| 3a 73 65 6e 64 2d 66 69 | 6e 66 20 6e 69 6c 20 28 |:send-fi|nf nil (|
|00000270| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00000280| 87 22 20 5b 74 63 3a 73 | 65 6e 64 2d 70 61 72 61 |." [tc:s|end-para|
|00000290| 6d 65 74 65 72 6c 65 73 | 73 20 22 46 49 4e 46 22 |meterles|s "FINF"|
|000002a0| 20 22 66 69 6e 64 2d 69 | 6e 2d 6e 65 78 74 2d 66 | "find-i|n-next-f|
|000002b0| 69 6c 65 22 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |ile"] 3)|)..(defu|
|000002c0| 6e 20 74 63 3a 73 65 6e | 64 2d 6e 6d 61 74 20 6e |n tc:sen|d-nmat n|
|000002d0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|000002e0| c1 c2 5c 22 87 22 20 5b | 74 63 3a 73 65 6e 64 2d |..\"." [|tc:send-|
|000002f0| 70 61 72 61 6d 65 74 65 | 72 6c 65 73 73 20 22 4e |paramete|rless "N|
|00000300| 4d 41 54 22 20 22 67 6f | 74 6f 2d 6e 65 78 74 2d |MAT" "go|to-next-|
|00000310| 6d 61 74 63 68 22 5d 20 | 33 29 29 0a 0a 28 64 65 |match"] |3))..(de|
|00000320| 66 75 6e 20 74 63 3a 73 | 65 6e 64 2d 70 6d 61 74 |fun tc:s|end-pmat|
|00000330| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000340| 22 c0 c1 c2 5c 22 87 22 | 20 5b 74 63 3a 73 65 6e |"...\"."| [tc:sen|
|00000350| 64 2d 70 61 72 61 6d 65 | 74 65 72 6c 65 73 73 20 |d-parame|terless |
|00000360| 22 50 4d 41 54 22 20 22 | 67 6f 74 6f 2d 70 72 65 |"PMAT" "|goto-pre|
|00000370| 76 69 6f 75 73 2d 6d 61 | 74 63 68 22 5d 20 33 29 |vious-ma|tch"] 3)|
|00000380| 29 0a 0a 28 64 65 66 75 | 6e 20 74 63 3a 73 65 6e |)..(defu|n tc:sen|
|00000390| 64 2d 67 74 6d 6b 20 6e | 69 6c 20 28 62 79 74 65 |d-gtmk n|il (byte|
|000003a0| 2d 63 6f 64 65 20 22 c8 | 18 c9 0a ca 5c 22 19 c8 |-code ".|....\"..|
|000003b0| 1b c8 1c c9 cb ca 5c 22 | 1d cc 20 1e 06 cd ce 8d |......\"|.. .....|
|000003c0| 1e 07 08 85 20 00 cf 08 | 21 88 0e 07 2e 07 87 22 |.... ...|!......"|
|000003d0| 20 5b 65 76 65 6e 74 20 | 72 65 70 6c 79 20 73 69 | [event |reply si|
|000003e0| 7a 65 6f 66 2d 41 70 70 | 6c 65 45 76 65 6e 74 20 |zeof-App|leEvent |
|000003f0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 73 70 |transact|ionID sp|
|00000400| 65 63 20 63 6c 62 6b 2d | 64 61 74 61 20 66 69 6c |ec clbk-|data fil|
|00000410| 65 2d 6e 61 6d 65 20 72 | 65 73 75 6c 74 20 6e 69 |e-name r|esult ni|
|00000420| 6c 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 30 20 |l make-s|tring 0 |
|00000430| 31 32 20 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 6e |12 buffe|r-file-n|
|00000440| 61 6d 65 20 70 61 6e 69 | 63 20 28 62 79 74 65 2d |ame pani|c (byte-|
|00000450| 63 6f 64 65 20 22 d2 d3 | d4 d4 d5 23 18 08 41 40 |code "..|...#..A@|
|00000460| 89 11 88 08 41 41 89 12 | 88 08 40 29 21 88 0b 3f |....AA..|..@)!..?|
|00000470| 85 20 00 d2 0c 21 88 d2 | d6 0b 21 18 08 40 89 15 |. ...!..|..!..@..|
|00000480| 88 08 41 29 21 88 d2 d7 | 09 0e 06 0e 07 0d 0d 47 |..A)!...|.......G|
|00000490| 25 21 88 d8 0e 08 d9 da | 0e 09 24 88 d8 0e 08 db |%!......|..$.....|
|000004a0| da 0e 0a 24 88 d8 0e 08 | dc dd 70 24 88 d2 d7 09 |...$....|..p$....|
|000004b0| de 0e 0b 0e 08 0e 08 47 | 25 21 88 d2 df 09 0e 0c |.......G|%!......|
|000004c0| 0e 0d 0e 0e 5c 5c 0e 0f | d9 d9 d9 26 07 21 88 0a |....\\..|...&.!..|
|000004d0| e0 e1 42 e2 e3 42 e4 70 | 42 45 42 0e 10 42 89 16 |..B..B.p|BEB..B..|
|000004e0| 10 88 0e 11 87 22 20 5b | 74 65 6d 70 20 65 76 65 |....." [|temp eve|
|000004f0| 6e 74 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |nt trans|actionID|
|00000500| 20 66 69 6c 65 2d 6e 61 | 6d 65 20 65 72 72 41 45 | file-na|me errAE|
|00000510| 45 76 65 6e 74 4e 6f 74 | 48 61 6e 64 6c 65 64 20 |EventNot|Handled |
|00000520| 73 70 65 63 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |spec key|DirectOb|
|00000530| 6a 65 63 74 20 74 79 70 | 65 46 53 53 20 63 6c 62 |ject typ|eFSS clb|
|00000540| 6b 2d 64 61 74 61 20 74 | 63 3a 47 65 74 4e 75 6d |k-data t|c:GetNum|
|00000550| 4c 69 6e 65 73 20 74 63 | 3a 47 65 74 43 68 61 72 |Lines tc|:GetChar|
|00000560| 50 6f 73 20 74 79 70 65 | 43 68 61 72 20 72 65 70 |Pos type|Char rep|
|00000570| 6c 79 20 6b 41 45 51 75 | 65 75 65 52 65 70 6c 79 |ly kAEQu|eueReply|
|00000580| 20 6b 41 45 4e 65 76 65 | 72 49 6e 74 65 72 61 63 | kAENeve|rInterac|
|00000590| 74 20 6b 41 45 4e 6f 72 | 6d 61 6c 50 72 69 6f 72 |t kAENor|malPrior|
|000005a0| 69 74 79 20 61 65 2d 68 | 69 73 74 6f 72 79 20 6e |ity ae-h|istory n|
|000005b0| 6f 45 72 72 20 74 68 72 | 6f 77 2d 65 72 72 20 61 |oErr thr|ow-err a|
|000005c0| 65 2d 63 72 65 61 74 65 | 2d 61 70 70 6c 65 2d 65 |e-create|-apple-e|
|000005d0| 76 65 6e 74 2d 69 6e 74 | 65 72 6e 61 6c 20 22 4b |vent-int|ernal "K|
|000005e0| 41 48 4c 22 20 22 47 54 | 4d 4b 22 20 75 6e 69 78 |AHL" "GT|MK" unix|
|000005f0| 2d 66 69 6c 65 6e 61 6d | 65 2d 74 6f 2d 46 53 53 |-filenam|e-to-FSS|
|00000600| 70 65 63 2d 69 6e 74 65 | 72 6e 61 6c 20 41 45 50 |pec-inte|rnal AEP|
|00000610| 75 74 50 61 72 61 6d 50 | 74 72 20 65 6e 63 6f 64 |utParamP|tr encod|
|00000620| 65 2d 69 6e 74 65 72 6e | 61 6c 20 30 20 75 6e 73 |e-intern|al 0 uns|
|00000630| 69 67 6e 65 64 2d 6c 6f | 6e 67 20 34 20 38 20 76 |igned-lo|ng 4 8 v|
|00000640| 65 72 62 61 74 69 6d 2d | 6c 6f 6e 67 20 22 43 4c |erbatim-|long "CL|
|00000650| 42 4b 22 20 41 45 53 65 | 6e 64 20 64 65 73 63 72 |BK" AESe|nd descr|
|00000660| 69 70 74 69 6f 6e 20 22 | 67 65 74 2d 6d 61 72 6b |iption "|get-mark|
|00000670| 65 72 73 22 20 68 61 6e | 64 6c 65 72 20 74 63 3a |ers" han|dler tc:|
|00000680| 64 6f 2d 67 74 6d 6b 2d | 72 65 70 6c 79 20 62 75 |do-gtmk-|reply bu|
|00000690| 66 66 65 72 5d 20 32 31 | 29 20 41 45 44 69 73 70 |ffer] 21|) AEDisp|
|000006a0| 6f 73 65 44 65 73 63 5d | 20 35 29 29 0a 0a 28 64 |oseDesc]| 5))..(d|
|000006b0| 65 66 75 6e 20 74 63 3a | 74 72 79 2d 73 65 6e 64 |efun tc:|try-send|
|000006c0| 69 6e 67 2d 67 74 6d 6b | 20 6e 69 6c 20 28 62 79 |ing-gtmk| nil (by|
|000006d0| 74 65 2d 63 6f 64 65 20 | 22 c0 20 87 22 20 5b 74 |te-code |". ." [t|
|000006e0| 63 3a 73 65 6e 64 2d 67 | 74 6d 6b 5d 20 32 29 29 |c:send-g|tmk] 2))|
|000006f0| 0a 0a 28 69 66 20 28 6e | 6f 74 20 28 6d 65 6d 71 |..(if (n|ot (memq|
|00000700| 20 28 66 75 6e 63 74 69 | 6f 6e 20 74 63 3a 73 65 | (functi|on tc:se|
|00000710| 6e 64 2d 67 74 6d 6b 29 | 20 66 69 6e 64 2d 66 69 |nd-gtmk)| find-fi|
|00000720| 6c 65 2d 68 6f 6f 6b 73 | 29 29 20 28 73 65 74 71 |le-hooks|)) (setq|
|00000730| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 68 6f 6f 6b 73 | find-fi|le-hooks|
|00000740| 20 28 63 6f 6e 73 20 28 | 66 75 6e 63 74 69 6f 6e | (cons (|function|
|00000750| 20 74 63 3a 74 72 79 2d | 73 65 6e 64 69 6e 67 2d | tc:try-|sending-|
|00000760| 67 74 6d 6b 29 20 66 69 | 6e 64 2d 66 69 6c 65 2d |gtmk) fi|nd-file-|
|00000770| 68 6f 6f 6b 73 29 29 29 | 0a 0a 28 64 65 66 75 6e |hooks)))|..(defun|
|00000780| 20 74 63 3a 64 6f 2d 67 | 74 6d 6b 2d 72 65 70 6c | tc:do-g|tmk-repl|
|00000790| 79 20 28 65 76 65 6e 74 | 20 68 69 73 74 6f 72 79 |y (event| history|
|000007a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 ca 09 |) (byte-|code "..|
|000007b0| cb 5c 22 18 ca 0b cb 5c | 22 1a cc 1c ca 0b cb 5c |.\"....\|"......\|
|000007c0| 22 1d ca 0b cb 5c 22 1e | 06 ca cd ce 0b 5c 22 cb |"....\".|.....\".|
|000007d0| 5c 22 1e 07 ca 0b cb 5c | 22 1e 08 cf d0 8d 1e 09 |\".....\|".......|
|000007e0| 08 85 32 00 d1 08 21 88 | 0e 09 2e 08 87 22 20 5b |..2...!.|....." [|
|000007f0| 74 68 65 4c 69 73 74 20 | 73 69 7a 65 6f 66 2d 41 |theList |sizeof-A|
|00000800| 45 44 65 73 63 20 74 68 | 65 43 6f 75 6e 74 2d 73 |EDesc th|eCount-s|
|00000810| 74 72 69 6e 67 20 73 69 | 7a 65 6f 66 2d 6c 6f 6e |tring si|zeof-lon|
|00000820| 67 20 74 68 65 43 6f 75 | 6e 74 2d 69 6e 74 65 67 |g theCou|nt-integ|
|00000830| 65 72 20 74 68 65 41 45 | 4b 65 79 77 6f 72 64 20 |er theAE|Keyword |
|00000840| 74 79 70 65 43 6f 64 65 | 20 64 61 74 61 50 74 72 |typeCode| dataPtr|
|00000850| 20 61 63 74 75 61 6c 53 | 69 7a 65 20 72 65 73 75 | actualS|ize resu|
|00000860| 6c 74 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 30 |lt make-|string 0|
|00000870| 20 6e 69 6c 20 2a 20 38 | 20 70 61 6e 69 63 20 28 | nil * 8| panic (|
|00000880| 62 79 74 65 2d 63 6f 64 | 65 20 22 d7 d8 08 09 0a |byte-cod|e ".....|
|00000890| 0b 24 21 88 d7 d9 0b 0c | 5c 22 21 88 da 0c db dc |.$!.....|\"!.....|
|000008a0| 23 89 15 88 0d dd 55 3f | 83 24 00 0e 06 82 b8 00 |#.....U?|.$......|
|000008b0| d7 de 0b dd 0e 07 0e 08 | 0e 09 0e 0a df e0 0e 0b |........|........|
|000008c0| 5c 22 0e 0c 26 08 21 88 | e1 cd 0e 0e 5c 22 41 1e |\"..&.!.|....\"A.|
|000008d0| 0d 0e 0d 71 88 e2 da 0e | 0a db e3 23 21 88 e4 da |...q....|...#!...|
|000008e0| 0e 0a e5 e3 23 21 88 e6 | da 0e 0a e0 e3 23 21 88 |....#!..|.....#!.|
|000008f0| e7 da 0e 0a e8 e3 23 21 | 88 e9 da 0e 0a ea e3 23 |......#!|.......#|
|00000900| 21 88 eb da 0e 0a ec e3 | 23 21 88 ed da 0e 0a ee |!.......|#!......|
|00000910| e3 23 21 88 ef da 0e 0a | f0 e3 23 21 88 f1 20 89 |.#!.....|..#!.. .|
|00000920| 16 0f 88 f2 20 89 16 10 | 88 f3 20 89 16 11 88 f4 |.... ...|.. .....|
|00000930| 20 89 16 12 88 f5 20 89 | 16 13 88 f6 20 89 16 14 | ..... .|.... ...|
|00000940| 88 d6 89 16 15 29 87 22 | 20 5b 65 76 65 6e 74 20 |.....)."| [event |
|00000950| 6b 65 79 44 69 72 65 63 | 74 4f 62 6a 65 63 74 20 |keyDirec|tObject |
|00000960| 74 79 70 65 41 45 4c 69 | 73 74 20 74 68 65 4c 69 |typeAELi|st theLi|
|00000970| 73 74 20 74 68 65 43 6f | 75 6e 74 2d 73 74 72 69 |st theCo|unt-stri|
|00000980| 6e 67 20 74 68 65 43 6f | 75 6e 74 2d 69 6e 74 65 |ng theCo|unt-inte|
|00000990| 67 65 72 20 65 72 72 41 | 45 45 76 65 6e 74 4e 6f |ger errA|EEventNo|
|000009a0| 74 48 61 6e 64 6c 65 64 | 20 74 79 70 65 43 68 61 |tHandled| typeCha|
|000009b0| 72 20 74 68 65 41 45 4b | 65 79 77 6f 72 64 20 74 |r theAEK|eyword t|
|000009c0| 79 70 65 43 6f 64 65 20 | 64 61 74 61 50 74 72 20 |ypeCode |dataPtr |
|000009d0| 73 69 7a 65 6f 66 2d 69 | 6e 74 20 61 63 74 75 61 |sizeof-i|nt actua|
|000009e0| 6c 53 69 7a 65 20 62 75 | 66 66 65 72 20 68 69 73 |lSize bu|ffer his|
|000009f0| 74 6f 72 79 20 74 63 3a | 6f 6c 64 53 65 6c 53 74 |tory tc:|oldSelSt|
|00000a00| 61 72 74 20 74 63 3a 6f | 6c 64 53 65 6c 45 6e 64 |art tc:o|ldSelEnd|
|00000a10| 20 74 63 3a 6f 6c 64 54 | 65 78 74 4c 65 6e 67 74 | tc:oldT|extLengt|
|00000a20| 68 20 74 63 3a 6f 6c 64 | 4e 75 6d 4c 69 6e 65 73 |h tc:old|NumLines|
|00000a30| 20 74 63 3a 6f 6c 64 4c | 69 6e 65 53 74 61 72 74 | tc:oldL|ineStart|
|00000a40| 20 74 63 3a 6f 6c 64 4c | 69 6e 65 45 6e 64 20 74 | tc:oldL|ineEnd t|
|00000a50| 63 3a 68 61 76 65 2d 54 | 50 4d 2d 64 61 74 61 20 |c:have-T|PM-data |
|00000a60| 74 20 74 68 72 6f 77 2d | 65 72 72 20 41 45 47 65 |t throw-|err AEGe|
|00000a70| 74 50 61 72 61 6d 44 65 | 73 63 20 41 45 43 6f 75 |tParamDe|sc AECou|
|00000a80| 6e 74 49 74 65 6d 73 20 | 65 78 74 72 61 63 74 2d |ntItems |extract-|
|00000a90| 69 6e 74 65 72 6e 61 6c | 20 30 20 6c 6f 6e 67 20 |internal| 0 long |
|00000aa0| 31 20 41 45 47 65 74 4e | 74 68 50 74 72 20 2a 20 |1 AEGetN|thPtr * |
|00000ab0| 38 20 61 73 73 6f 63 20 | 73 65 74 66 2d 74 63 3a |8 assoc |setf-tc:|
|00000ac0| 6d 61 72 6b 65 72 73 20 | 75 6e 73 69 67 6e 65 64 |markers |unsigned|
|00000ad0| 2d 6c 6f 6e 67 20 73 65 | 74 66 2d 74 63 3a 62 72 |-long se|tf-tc:br|
|00000ae0| 65 61 6b 70 6f 69 6e 74 | 73 20 34 20 73 65 74 66 |eakpoint|s 4 setf|
|00000af0| 2d 74 63 3a 64 61 74 61 | 76 69 65 77 73 20 73 65 |-tc:data|views se|
|00000b00| 74 66 2d 74 63 3a 6c 69 | 6e 65 4f 66 66 73 65 74 |tf-tc:li|neOffset|
|00000b10| 73 20 31 32 20 73 65 74 | 66 2d 74 63 3a 62 6b 70 |s 12 set|f-tc:bkp|
|00000b20| 74 49 44 73 20 31 36 20 | 73 65 74 66 2d 74 63 3a |tIDs 16 |setf-tc:|
|00000b30| 64 74 76 75 49 44 73 20 | 32 30 20 73 65 74 66 2d |dtvuIDs |20 setf-|
|00000b40| 74 63 3a 62 6b 70 74 53 | 69 7a 65 73 20 32 34 20 |tc:bkptS|izes 24 |
|00000b50| 73 65 74 66 2d 74 63 3a | 64 74 76 75 53 69 7a 65 |setf-tc:|dtvuSize|
|00000b60| 73 20 32 38 20 74 63 3a | 73 65 6c 53 74 61 72 74 |s 28 tc:|selStart|
|00000b70| 20 74 63 3a 73 65 6c 45 | 6e 64 20 74 63 3a 74 65 | tc:selE|nd tc:te|
|00000b80| 78 74 4c 65 6e 20 74 63 | 3a 6e 75 6d 4c 69 6e 65 |xtLen tc|:numLine|
|00000b90| 73 20 74 63 3a 6c 69 6e | 65 53 74 61 72 74 20 74 |s tc:lin|eStart t|
|00000ba0| 63 3a 6c 69 6e 65 45 6e | 64 5d 20 33 33 29 20 41 |c:lineEn|d] 33) A|
|00000bb0| 45 44 69 73 70 6f 73 65 | 44 65 73 63 5d 20 39 29 |EDispose|Desc] 9)|
|00000bc0| 29 0a 0a 28 63 3a 64 65 | 66 73 74 72 75 63 74 20 |)..(c:de|fstruct |
|00000bd0| 74 63 3a 73 74 72 75 63 | 74 2d 70 74 6d 6b 20 28 |tc:struc|t-ptmk (|
|00000be0| 28 73 68 6f 72 74 20 63 | 6f 70 79 66 69 6c 65 29 |(short c|opyfile)|
|00000bf0| 20 28 73 68 6f 72 74 20 | 6e 65 77 66 69 6c 65 29 | (short |newfile)|
|00000c00| 20 28 46 53 53 70 65 63 | 20 66 73 73 29 20 28 6c | (FSSpec| fss) (l|
|00000c10| 6f 6e 67 20 6d 61 72 6b | 65 72 73 29 20 28 6c 6f |ong mark|ers) (lo|
|00000c20| 6e 67 20 62 72 65 61 6b | 70 6f 69 6e 74 73 29 20 |ng break|points) |
|00000c30| 28 6c 6f 6e 67 20 64 61 | 74 61 76 69 65 77 73 29 |(long da|taviews)|
|00000c40| 20 28 6c 6f 6e 67 20 6c | 69 6e 65 4f 66 66 73 65 | (long l|ineOffse|
|00000c50| 74 73 29 20 28 6c 6f 6e | 67 20 62 6b 70 74 49 44 |ts) (lon|g bkptID|
|00000c60| 73 29 20 28 6c 6f 6e 67 | 20 64 74 76 75 49 44 73 |s) (long| dtvuIDs|
|00000c70| 29 20 28 6c 6f 6e 67 20 | 62 6b 70 74 53 69 7a 65 |) (long |bkptSize|
|00000c80| 73 29 20 28 6c 6f 6e 67 | 20 64 74 76 75 53 69 7a |s) (long| dtvuSiz|
|00000c90| 65 73 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 74 63 |es)))..(|defun tc|
|00000ca0| 3a 73 65 6e 64 2d 70 74 | 6d 6b 20 28 63 6f 70 79 |:send-pt|mk (copy|
|00000cb0| 66 69 6c 65 20 6e 65 77 | 66 69 6c 65 20 73 70 65 |file new|file spe|
|00000cc0| 63 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c9 |c) (byte|-code ".|
|00000cd0| ca cb 21 cc 5c 22 18 cd | cb 08 c1 09 24 88 cd cb |..!.\"..|....$...|
|00000ce0| 08 c2 0a 24 88 cd cb 08 | ce 0b 24 88 cd cb 08 cf |...$....|..$.....|
|00000cf0| d0 20 24 88 cd cb 08 d1 | d2 20 24 88 cd cb 08 d3 |. $.....|. $.....|
|00000d00| d4 20 24 88 cd cb 08 d5 | d6 20 24 88 cd cb 08 d7 |. $.....|. $.....|
|00000d10| d8 20 24 88 cd cb 08 d9 | da 20 24 88 cd cb 08 db |. $.....|. $.....|
|00000d20| dc 20 24 88 cd cb 08 dd | de 20 24 88 df c9 0e 06 |. $.....|. $.....|
|00000d30| cc 5c 22 df e0 e1 8d 1e | 08 1e 07 1d 1c 0c 85 73 |.\".....|.......s|
|00000d40| 00 e2 0c 21 88 0e 08 2c | 29 87 22 20 5b 6f 62 6a |...!...,|)." [obj|
|00000d50| 20 63 6f 70 79 66 69 6c | 65 20 6e 65 77 66 69 6c | copyfil|e newfil|
|00000d60| 65 20 73 70 65 63 20 65 | 76 65 6e 74 20 72 65 70 |e spec e|vent rep|
|00000d70| 6c 79 20 73 69 7a 65 6f | 66 2d 41 70 70 6c 65 45 |ly sizeo|f-AppleE|
|00000d80| 76 65 6e 74 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |vent tra|nsaction|
|00000d90| 49 44 20 72 65 73 75 6c | 74 20 6d 61 6b 65 2d 73 |ID resul|t make-s|
|00000da0| 74 72 69 6e 67 20 63 3a | 73 69 7a 65 6f 66 20 74 |tring c:|sizeof t|
|00000db0| 63 3a 73 74 72 75 63 74 | 2d 70 74 6d 6b 20 30 20 |c:struct|-ptmk 0 |
|00000dc0| 63 3a 73 6c 6f 74 73 65 | 74 20 66 73 73 20 6d 61 |c:slotse|t fss ma|
|00000dd0| 72 6b 65 72 73 20 74 63 | 3a 6d 61 72 6b 65 72 73 |rkers tc|:markers|
|00000de0| 20 62 72 65 61 6b 70 6f | 69 6e 74 73 20 74 63 3a | breakpo|ints tc:|
|00000df0| 62 72 65 61 6b 70 6f 69 | 6e 74 73 20 64 61 74 61 |breakpoi|nts data|
|00000e00| 76 69 65 77 73 20 74 63 | 3a 64 61 74 61 76 69 65 |views tc|:datavie|
|00000e10| 77 73 20 6c 69 6e 65 4f | 66 66 73 65 74 73 20 74 |ws lineO|ffsets t|
|00000e20| 63 3a 6c 69 6e 65 4f 66 | 66 73 65 74 73 20 62 6b |c:lineOf|fsets bk|
|00000e30| 70 74 49 44 73 20 74 63 | 3a 62 6b 70 74 49 44 73 |ptIDs tc|:bkptIDs|
|00000e40| 20 64 74 76 75 49 44 73 | 20 74 63 3a 64 74 76 75 | dtvuIDs| tc:dtvu|
|00000e50| 49 44 73 20 62 6b 70 74 | 53 69 7a 65 73 20 74 63 |IDs bkpt|Sizes tc|
|00000e60| 3a 62 6b 70 74 53 69 7a | 65 73 20 64 74 76 75 53 |:bkptSiz|es dtvuS|
|00000e70| 69 7a 65 73 20 74 63 3a | 64 74 76 75 53 69 7a 65 |izes tc:|dtvuSize|
|00000e80| 73 20 6e 69 6c 20 70 61 | 6e 69 63 20 28 62 79 74 |s nil pa|nic (byt|
|00000e90| 65 2d 63 6f 64 65 20 22 | cc cd ce ce cf 23 18 08 |e-code "|.....#..|
|00000ea0| 41 40 89 11 88 08 41 41 | 89 12 88 08 40 29 21 88 |A@....AA|....@)!.|
|00000eb0| cc d0 09 0b 0c 0d 0d 47 | 25 21 88 cc d1 09 0e 06 |.......G|%!......|
|00000ec0| 0e 07 0e 08 5c 5c 0e 09 | d2 d2 d2 26 07 21 88 0a |....\\..|...&.!..|
|00000ed0| d3 d4 42 d5 d6 42 44 42 | 0e 0a 42 89 16 0a 88 0e |..B..BDB|..B.....|
|00000ee0| 0b 87 22 20 5b 74 65 6d | 70 20 65 76 65 6e 74 20 |.." [tem|p event |
|00000ef0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 6b 65 |transact|ionID ke|
|00000f00| 79 44 69 72 65 63 74 4f | 62 6a 65 63 74 20 74 79 |yDirectO|bject ty|
|00000f10| 70 65 43 68 61 72 20 6f | 62 6a 20 72 65 70 6c 79 |peChar o|bj reply|
|00000f20| 20 6b 41 45 51 75 65 75 | 65 52 65 70 6c 79 20 6b | kAEQueu|eReply k|
|00000f30| 41 45 4e 65 76 65 72 49 | 6e 74 65 72 61 63 74 20 |AENeverI|nteract |
|00000f40| 6b 41 45 4e 6f 72 6d 61 | 6c 50 72 69 6f 72 69 74 |kAENorma|lPriorit|
|00000f50| 79 20 61 65 2d 68 69 73 | 74 6f 72 79 20 6e 6f 45 |y ae-his|tory noE|
|00000f60| 72 72 20 74 68 72 6f 77 | 2d 65 72 72 20 61 65 2d |rr throw|-err ae-|
|00000f70| 63 72 65 61 74 65 2d 61 | 70 70 6c 65 2d 65 76 65 |create-a|pple-eve|
|00000f80| 6e 74 2d 69 6e 74 65 72 | 6e 61 6c 20 22 4b 41 48 |nt-inter|nal "KAH|
|00000f90| 4c 22 20 22 50 54 4d 4b | 22 20 41 45 50 75 74 50 |L" "PTMK|" AEPutP|
|00000fa0| 61 72 61 6d 50 74 72 20 | 41 45 53 65 6e 64 20 30 |aramPtr |AESend 0|
|00000fb0| 20 64 65 73 63 72 69 70 | 74 69 6f 6e 20 22 70 75 | descrip|tion "pu|
|00000fc0| 74 2d 6d 61 72 6b 65 72 | 73 22 20 68 61 6e 64 6c |t-marker|s" handl|
|00000fd0| 65 72 20 64 6f 2d 73 69 | 6d 70 6c 65 2d 72 65 70 |er do-si|mple-rep|
|00000fe0| 6c 79 5d 20 31 33 29 20 | 41 45 44 69 73 70 6f 73 |ly] 13) |AEDispos|
|00000ff0| 65 44 65 73 63 5d 20 32 | 37 29 29 0a 0a 28 64 65 |eDesc] 2|7))..(de|
|00001000| 66 75 6e 20 74 63 3a 73 | 65 6e 64 2d 6d 6b 75 70 |fun tc:s|end-mkup|
|00001010| 20 28 62 75 66 66 65 72 | 29 20 28 62 79 74 65 2d | (buffer|) (byte-|
|00001020| 63 6f 64 65 20 22 c9 09 | 21 18 08 85 27 00 ca 1a |code "..|!...'...|
|00001030| ca 1b cb 0d cc 5c 22 1c | cd 0e 07 21 1e 06 ce cf |.....\".|...!....|
|00001040| 8d 1e 08 0a 85 23 00 d0 | 0a 21 88 0e 08 2d 29 87 |.....#..|.!...-).|
|00001050| 22 20 5b 6d 6b 75 70 20 | 62 75 66 66 65 72 20 65 |" [mkup |buffer e|
|00001060| 76 65 6e 74 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |vent tra|nsaction|
|00001070| 49 44 20 72 65 70 6c 79 | 20 73 69 7a 65 6f 66 2d |ID reply| sizeof-|
|00001080| 41 70 70 6c 65 45 76 65 | 6e 74 20 63 61 6c 6c 62 |AppleEve|nt callb|
|00001090| 61 63 6b 2d 64 61 74 61 | 20 74 63 3a 47 65 74 4c |ack-data| tc:GetL|
|000010a0| 69 6e 65 4e 75 6d 20 72 | 65 73 75 6c 74 20 6d 61 |ineNum r|esult ma|
|000010b0| 6b 65 2d 6d 6b 75 70 20 | 6e 69 6c 20 6d 61 6b 65 |ke-mkup |nil make|
|000010c0| 2d 73 74 72 69 6e 67 20 | 30 20 65 6e 63 6f 64 65 |-string |0 encode|
|000010d0| 2d 6c 6f 6e 67 2d 69 6e | 74 65 67 65 72 20 70 61 |-long-in|teger pa|
|000010e0| 6e 69 63 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nic (byt|e-code "|
|000010f0| ce cf d0 d0 d1 23 18 08 | 41 40 89 11 88 08 41 41 |.....#..|A@....AA|
|00001100| 89 12 88 08 40 29 21 88 | ce d2 09 0b 0c 0d 0d 47 |....@)!.|.......G|
|00001110| 25 21 88 ce d2 09 d3 0c | 0e 06 0e 07 25 21 88 ce |%!......|....%!..|
|00001120| d4 09 0e 08 0e 09 0e 0a | 5c 5c 0e 0b d5 d5 d5 26 |........|\\.....&|
|00001130| 07 21 88 0a d6 d7 42 d8 | d9 42 44 42 0e 0c 42 89 |.!....B.|.BDB..B.|
|00001140| 16 0c 88 0e 0d 87 22 20 | 5b 74 65 6d 70 20 65 76 |......" |[temp ev|
|00001150| 65 6e 74 20 74 72 61 6e | 73 61 63 74 69 6f 6e 49 |ent tran|sactionI|
|00001160| 44 20 6b 65 79 44 69 72 | 65 63 74 4f 62 6a 65 63 |D keyDir|ectObjec|
|00001170| 74 20 74 79 70 65 43 68 | 61 72 20 6d 6b 75 70 20 |t typeCh|ar mkup |
|00001180| 63 61 6c 6c 62 61 63 6b | 2d 64 61 74 61 20 73 69 |callback|-data si|
|00001190| 7a 65 6f 66 2d 6c 6f 6e | 67 20 72 65 70 6c 79 20 |zeof-lon|g reply |
|000011a0| 6b 41 45 51 75 65 75 65 | 52 65 70 6c 79 20 6b 41 |kAEQueue|Reply kA|
|000011b0| 45 4e 65 76 65 72 49 6e | 74 65 72 61 63 74 20 6b |ENeverIn|teract k|
|000011c0| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|000011d0| 20 61 65 2d 68 69 73 74 | 6f 72 79 20 6e 6f 45 72 | ae-hist|ory noEr|
|000011e0| 72 20 74 68 72 6f 77 2d | 65 72 72 20 61 65 2d 63 |r throw-|err ae-c|
|000011f0| 72 65 61 74 65 2d 61 70 | 70 6c 65 2d 65 76 65 6e |reate-ap|ple-even|
|00001200| 74 2d 69 6e 74 65 72 6e | 61 6c 20 22 4b 41 48 4c |t-intern|al "KAHL|
|00001210| 22 20 22 4d 4b 55 50 22 | 20 41 45 50 75 74 50 61 |" "MKUP"| AEPutPa|
|00001220| 72 61 6d 50 74 72 20 22 | 43 4c 42 4b 22 20 41 45 |ramPtr "|CLBK" AE|
|00001230| 53 65 6e 64 20 30 20 64 | 65 73 63 72 69 70 74 69 |Send 0 d|escripti|
|00001240| 6f 6e 20 22 6d 61 72 6b | 65 72 2d 75 70 64 61 74 |on "mark|er-updat|
|00001250| 65 22 20 68 61 6e 64 6c | 65 72 20 64 6f 2d 73 69 |e" handl|er do-si|
|00001260| 6d 70 6c 65 2d 72 65 70 | 6c 79 5d 20 31 35 29 20 |mple-rep|ly] 15) |
|00001270| 41 45 44 69 73 70 6f 73 | 65 44 65 73 63 5d 20 35 |AEDispos|eDesc] 5|
|00001280| 29 29 0a 0a 28 64 65 66 | 75 6e 20 74 63 3a 73 65 |))..(def|un tc:se|
|00001290| 6e 64 2d 63 70 72 6a 20 | 6e 69 6c 20 28 62 79 74 |nd-cprj |nil (byt|
|000012a0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 87 22 20 |e-code "|...\"." |
|000012b0| 5b 74 63 3a 73 65 6e 64 | 2d 70 61 72 61 6d 65 74 |[tc:send|-paramet|
|000012c0| 65 72 6c 65 73 73 20 22 | 43 50 52 4a 22 20 22 63 |erless "|CPRJ" "c|
|000012d0| 6c 6f 73 65 2d 70 72 6f | 6a 65 63 74 22 5d 20 33 |lose-pro|ject"] 3|
|000012e0| 29 29 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |))......|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00001310| 64 65 20 22 09 40 40 18 | c2 c5 08 21 40 3d 83 13 |de ".@@.|...!@=..|
|00001320| 00 c6 08 21 82 16 00 c7 | 08 21 88 0b 54 89 13 88 |...!....|.!..T...|
|00001330| 10 74 63 2d 65 64 69 74 | 2d 73 65 6e 64 2e 65 6c |.tc-edit|-send.el|
|00001340| 63 2d 02 00 00 00 64 45 | 4c 43 45 4d 41 43 00 00 |c-....dE|LCEMAC..|
|00001350| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 a9 9d 55 61 00 00 | 12 63 00 00 01 3c 64 65 |....Ua..|.c...<de|
|00001380| 6c 65 74 65 2d 66 69 6c | 65 20 6d 65 73 73 61 67 |lete-fil|e messag|
|00001390| 65 20 22 25 73 20 6f 66 | 20 25 73 20 64 65 6c 65 |e "%s of| %s dele|
|000013a0| 74 69 6f 6e 73 22 20 64 | 65 6c 65 74 65 2d 72 65 |tions" d|elete-re|
|000013b0| 67 69 6f 6e 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |gion beg|inning-o|
|000013c0| 66 2d 6c 69 6e 65 20 66 | 6f 72 77 61 72 64 2d 6c |f-line f|orward-l|
|000013d0| 69 6e 65 20 31 20 64 69 | 72 65 64 2d 63 6c 65 61 |ine 1 di|red-clea|
|000013e0| 6e 2d 75 70 2d 61 66 74 | 65 72 2d 64 65 6c 65 74 |n-up-aft|er-delet|
|000013f0| 69 6f 6e 5d 20 39 29 20 | 28 28 65 72 72 6f 72 20 |ion] 9) |((error |
|00001400| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00001410| 01 0a 00 00 00 0a 00 00 | 00 32 00 23 49 d8 06 fc |........|.2.#I...|
|00001420| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|00001430| bf f4 ff ff 00 00 00 00 | 00 27 ce 60 00 00 00 00 |........|.'.`....|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+